Just Call Me Internet/Just Call Me Internet.iso/prog/atari/m2/cat3src/cat/mte.d

Text File | 1997-10-26 | 12KB | 186 lines

DEFINITION MODULE MTE;

(* IMPORT nach CAT, MTEdit, MTDataBase, MTPaths, MTVDIAnzeige,
               OutConverter, VDIStandards
*)

CONST
(*
  Save       = "[2][CAT:|Nachricht speichern?][[Ja|[Nein]";
  NoVDI      = "[3][CAT:|Keine Workstation|erh„ltlich!][[Ciao]";
  BigFile    = "[3][CAT:|Der Text ist zu grož|fr ein Mitteilung!][[Pech]";
  NoFile     = "[3][CAT:|Auf die Nachricht kann|nicht zugegriffen werden!][[Wie?]";
  NoPath     = "[3][CAT:|Der Pfad ist|nicht korrekt!][[Na so was!]";
  MergeErr   = "[1][CAT:|Die Datei passt nicht|komplett in die Mitteilung][[Schade]";
  NoPrinter  = "[3][CAT:|Drucker nicht angeschlossen?][[Nochmal|[Abbruch]";
  MessEmpty  = "[2][CAT:|Der Text hat keinen Inhalt.|Entfernen?][[Ja|[Nein]";
  NotClosed  = "[1][CAT:|Datei konnte nicht|geschlossen werden!][[Wie das?]";
  reallyKill = "[2][CAT:|Gruppe wirklich|komplett l”schen?][[OK|[Abbruch]";
  noAppl     = "[3][CAT:|Anmeldung beim|Betriebssystem|fehlgeschlagen!][[Abbruch]";

(* MTDataBase *)
  isThere    = "[2][CAT:|Msg mit gleicher Nummer|schon vorhanden!|Alle checken, ohne Frage?][A[lle|[Fragen|[Abbruch]";
  ProgrammErr= "[3][CAT:|Schwerer Programmfehler][[Halt]";

(* MTVDIAnzeige *)
  noOwn      = "[1][CAT:|Eigene Nachrichten|k”nnen nicht|beantwortet werden!][[Abbruch]";
  noAns      = "[1][CAT:|Nachricht ist|schon beantwortet!][[Abbruch]";
  nextGroup  = "[2][CAT:|Zur n„chsten Gruppe|mit neuen Msgs?][[OK|[Abbruch]";
  noGuest    = "[1][CAT:|Nachricht an Gast|ist nicht m”glich!][[Abbruch]";
*)
  noAnonym   = "[1][CAT:|Nachricht an anonym|ist nicht m”glich!][[Abbruch]";

  NoFit      = "[3][CAT:|Die Zeile wird|zu lang!][[Tja]";
  NoScrap    = "[2][CAT:|Auf das Clipboard kann|nicht zugegriffen werden!][[Was?]";
  Overwrite  = "[2][CAT:|Eine Datei gleichen|Namens existiert schon.][š[berschr.|An[h„ngen|:[Abbruch]";
  NoWin      = "[3][CAT:|Es sind keine|Fenster mehr verfgbar!][[Pech]";
  NoWrite    = "[3][CAT:|Datei konnte nicht korrekt|geschrieben werden!][[Schlecht]";
  NoWinDial  = "[3][CAT:|Es ist kein Fenster|fr den Dialog verfgbar!|Bitte schliežen sie ein|anderes Fenster.][[OK]";

(* CAT *)
  emptyGName = "[3][CAT:|Der Gruppenname|ist leer!][[OK]";
  emptyEName = "[3][CAT:|Der Empf„ngername|ist leer!][[OK]";
  emptyWegen = "[3][CAT:|Das Stichwort|ist leer!][[OK]";
  longWegen  = "[3][CAT:|Das Stichwort|wird zu lang!][[OK]";
  wrongWegen = "[3][CAT:|Im Stichwort sind unzul„ssige|Sonderzeichen (CR,LF etc.) enthalten!][[Neu|[Filtern]";

  longCopy   = "[1][CAT:|Der Kommentar zur Nachricht|wird zu lang!|Die MAUS mag nur 79 Zeichen.][[OK]";
  saveNew    = "[2][CAT:|Alle neuen Mitteilungen...][[Drucken|[Speichern|:[Abbruch]";
  noSearchStr= "[3][CAT:|Fehler im Suchmuster!|Suchstrings, die nur aus|Wildcardzeichen bestehen,|sind nicht erlaubt!][[Nochmal]";
  longQuote  = "[3][CAT:|So viel Text kann ich|nicht quoten. Bitte mache|den Block kleiner.][[Abbruch]";

(* ZSearchDial *)
  emptySearchStr0 = "[2][CAT:|Kein Suchwort angegeben!][[Nochmal]";
  emptySearchStr  = "[2][CAT:|Leeres Suchwort und |Suchmaske ausgeschaltet!][[Nochmal]";
  noSearchAction  = "[3][CAT:|Keine Aktion gew„hlt.|Anzeigen oder Setzmaske|anschalten!][[OK]";  noSearchFunc    = "[3][CAT:|Keine Suchfunktion gew„hlt.|Textsuche oder Flagsuche|anschalten!][[OK]";  emptySearchMask = "[3][CAT:|Suchmaske leer!][[Nochmal]";
  emptySetMask    = "[3][CAT:|Setzmaske leer!][[Nochmal]";(* MTDataBase *)
  coreDumped = "[1][CAT:|Fehlerhafter Msg-Header,|Debuginfo gespeichert!][[OK|[Translate]";
  translation ="[1][CAT:|Bogon warning.|Incoming enemy bogon deflected.][Confirm]";
  diskSpace  = "[3][CAT:|Zuwenig Diskplatz!][[Abbruch]";
  msgError   = "[3][CAT:|Fehler beim Lesen dieser Msg.][[Abbruch]";
  noOldMsg   = "[3][CAT:|Ups, kann auch die alte Msg nicht lesen.][[Abbruch]";

  noGrPos    = "[3][CAT:|Dateifehler in GRUPPEN.POS][[Abbruch]";
  badMsg     = "[3][CAT:|Diese Nachricht ist defekt!][[Abbruch]";

(* MTPaths *)
  noInf      = "[3][CAT:|CAT.INF|nicht gefunden!][[Abbruch]";
  illegalInf = "[3][CAT:|Fehlerhafte|CAT.INF Datei!][[Abbruch]";
  notAllPaths= "[3][CAT:|Es kann nicht auf|alle angegebenen Pfade|zugegriffen werden!][[Abbruch]";

(* MTVDIAnzeige *)
  (* newMsg     = "[1][CAT:|Neue pers”nliche Nachricht:][[Beantworten|[Zurckstellen|[Nicht antworten!]"; *)
  newMsg     = "[1][CAT:|Neue pers”nliche Nachricht, nur|(B)eantworten|(Z)urckstellen|(N)icht antworten!][[OK]";
  noFound    = "[3][CAT:|Keine passende|Nachricht gefunden!][[Abbruch]";
  noMsg      = "[1][CAT:|Keine weitere Nachricht!][[OK|:[Abbruch]";
  saveName   = "[2][CAT:|Absender in die|Addressenliste bernehmen?][[OK|:[Abbruch]";
  saveName2  = "[2][CAT:|Empf„nger in die|Addressenliste bernehmen?][[OK|:[Abbruch]";
  noOwnCom   = "[2][CAT:|Diese Nachricht ist|nicht an Sie!][[Hmm]";
  noGroup    = "[2][CAT:|Gruppe nicht gefunden.|Global suchen?][[OK|:[Abbruch]";
  killMsg    = "[2][CAT:|Soll die Nachricht wirklich|in der MAUS gel”scht werden?][[Ja|:[Nein]";
  changeFlgs = "[2][CAT:|Flags „ndern?][[OK|:[Abbruch]";

(* MsgList *)
  emptyList  = "[2][CAT:|Die Stichwortliste wrde|bei der gewnschten|Operation leer werden!][[Abbruch]";
  sortBreak  = "[1][CAT:|Wollen Sie die Sortierung|wirklich abbrechen?|Die Stichwortliste ist danach|absolut unsortiert!][:[Abbrechen|[Weiter]";
  listMode   = "[2][CAT:|In welchem Format sollen die selektierten|Nachrichten gespeichert werden?][[Liste|[Outfile|[Text|[UUdecode|:[Abbruch]";
  expPrivate = "[2][CAT:|Ein Outfile der pers”nlichen|Gruppe kann nicht unbedingt|wieder vollst„ndig eingelesen werden.][:[Abbruch|[Weiter]";
  noneSelAlt = "[2][CAT:|Keine Nachrichten selektiert.|Sollen alle in der|Liste gelesen werden?][[Ja|:[Abbruch]";

(* MsgManager *)
  toMuchMessages  = "[3][CAT:|So viele Messages sind|zu viel fr mich!|Bitte l”sche doch ein|paar davon.][[Abbruch]";
  cantCreateFile  = "[3][CAT:|Das Textfile fr die|Message kann nicht|angelegt werden!][[Abbruch]";
  errorWithInfile = "[3][CAT:|Es ist ein Fehler aufgetreten,|ich kann das Infile nicht erstellen!][[Abbruch]";
  splitMsgAlt1    = "[2][CAT:|Die Message ";
  splitMsgAlt2    = "|ist zu lang! Soll die|Message automatisch|gesplittet werden?][[Ja|:[Nein]";
  noMsgAlt        = "[3][CAT:|Es sind keine Nachrichten|vorhanden, die ge”ffnet|werden k”nnen.][[Ach so]";
  delSelectedAlt  = '[3][CAT:|Wirklich alle selektierten|Nachrichten l”schen?|"L”schen" ist nicht umkehrbar.][[L”schen|:[Behalten]';
  oldMsgVersion   = "[3][CAT:|Die Nachrichten wurden mit einer|alten Version des MsgManagers|erstellt! Die Datei MSGINFO.DAT ist nicht|lesbar!][[Abbruch]";
  noTmpSplitFile  = "[3][CAT:|Kann tempor„re Datei nicht|anlegen! Das Splitten wird abgebrochen!][[Abbruch]";
  noMsgSplitFile  = "[3][CAT:|Kann die Messagedatei|zum Splitten nicht lesen!][[Abbruch]";
  maxCopyAlert    = "[3][CAT:|Die Maus erlaubt pro|Nachricht nur 10 Kopien!][[Abbruch]";
  pexecError      = "[3][CAT:|Fehler beim Einpacken|des Infiles!|Returncode: &][[Abbruch]";
(* GruppenAuswahl *)
  unOrderImpossible = "[1][CAT:|Diese Gruppe kann|nicht abgestellt werden!][:[Abbruch]";
  orderChef   = "[2][CAT:|Um diese Gruppe zu lesen,|mssen Sie den Chef fragen.|Nachricht schreiben?][[Ja|:[Nein]";
  orderSysop  = "[2][CAT:|Um diese Gruppe zu lesen,|mssen Sie den Sysop fragen.|Nachricht schreiben?][[Ja|:[Nein]";
  orderImpossible = "[1][CAT:|Diese Gruppe kann von|Ihnen nicht bestellt werden!][:[Abbruch]";
  orderNoPermission= "[1][CAT:|Diese Gruppe kann in dieser|MAUS nicht bezogen werden, da|es eine Regionalgruppe ist!][:[Abbruch]";
  followUpDefined = "[2][CAT:|Fr die Gruppe ist|schon ein Follow-Up|eingestellt. Wollen Sie|diesen „ndern?][[L”schen|Ž[ndern|:[Abbruch]";
  noFollowUp      = "[2][CAT:|Fr die Gruppe ist|noch kein Follow-Up|eingestellt. Wollen Sie|einen einstellen?][[Ja|:[Nein]";
  selFollowUp     = "[1][CAT:|W„hlen Sie nun die|Gruppe aus, in die die|Kommentare gehen sollen.][[OK]";  sameGroupError  = "[1][CAT:|Ein Follow-Up in die gleiche|Gruppe ist nicht|sehr sinnvoll!][[Nochmal]";  noChefSelected  = "[1][CAT:|Ohne Namen kann kein|Chef gesetzt werden!][[Abbruch]";
(* TreeList *)
  onlyRegAlt      = "[1][CAT:|Die Baumanzeige ist|nur in der registrierten|Version m”glich.][[Abbruch]";  noWinOrWork     = "[3][CAT:|Es ist kein Fenster oder|keine VDI-Workstation fr|die Baumanzeige mehr frei.][[Abbruch]";
(* OutConverter *)
  noOutArc   = "[3][CAT:|Gepacktes OUTFILE|nicht vorhanden!][[Abbruch]";
  doInsert   = "[2][CAT:|Ungepacktes OUTFILE.TXT|trotzdem einfgen?][[OK|:[Abbruch]";
  outOverwrite = "[2][CAT:|OUTFILE.TXT berschreiben?][[OK|:[Abbruch]";
  outNotFound  = "[3][CAT:|OUTFILE.TXT nicht gefunden!][[Abbruch]";
  wrongOut   = "[3][CAT:|Defektes Outfile!][[Abbruch]";

   noCatlog   = "[3][CAT:|CATLOG.TXT konnte nicht|angelegt werden.][[Abbruch]";
   noDearc    = "[3][CAT:|Das Outfile konnte nicht|ausgepackt werden.][[Abbruch]";
   noMemForBuffer = "[2][CAT:|Nicht gengend Speicher|fr die Puffer!][[Weiter|:[Abbruch]";

   searchGroupCom = "[2][CAT:|Keine Gruppenangabe!|Gruppenbergreifend suchen?][[OK|:[Abbruch]";

(* parser *)
  pmDefect = "[3][CAT:|Es gab Fehler bei den PMs.|Bitte in CATLOG.TXT nachsehen!][[OK]";
  overSize = "[3][CAT:|Die MAUS meldet|'Maximalgr”že berschritten'.|Es sind nicht alle neuen |Nachrichten bertragen worden.][[Hilfe|[OK]";
  groupsOpen = "[3][CAT:|Interner Fehler:|Es sind noch Lesepointer vergeben.|Bitte CAT beenden.][[OK]";

(* Listhelp *)
  delNameAlt = "[3][CAT:|Adresse wirklich|l”schen?][[Ja|:[Nein]";
  clipInfo   = "[1][CAT:|Dieses Klemmbrett enth„lt die zuletzt|von Ihnen gel”schte Gruppe. Momentan|";
  clipInfo2  = "k”nnen Sie es nicht benutzen,|da es leer ist.][[OK]";
  groupNotFound = "[3][CAT:|Gruppe nicht gefunden!][[And again]";
  emptyAddr  = "[3][CAT:|Leere Namen werden|nicht eingetragen!][[Ooch]";
  emptyGroup = "[3][CAT:|Leere Gruppennamen|gibt es nicht!][[Nochmal]";
  doubleGroup= "[3][CAT:|Eine Gruppe mit diesem|Namen gibt es schon!][[Nochmal]";
  noRenGroup = "[2][CAT:|Kann Gruppe nicht umbenennen!][[Abbruch]";
(* Infofiles *)
  oldVersionAlt = "[3][CAT:|Die Versionsnummer der INFO.INF ist falsch.|Das INFO.INF ist nicht lesbar!][[Abbruch]";
  noInfFile     = "[3][CAT:|Das Infofile steht|nicht zur Verfgung!][[Abbruch]";
  noInfoInf     = "[3][CAT:|Kein INFO.INF gefunden!|Es wird eine Default-Einstellung|angelegt, bitte fhren Sie danach|einen MausTausch durch.][ [OK ]";

(* Global *)
  changeNoSave  = "[3][CAT:|Žnderungen k”nnen nicht|gesichert werden!][[Abbruch]";

 CONST noFile1   = "[3][CAT:|";
       noFile2   = ":|kein Zugriff m”glich.][ [OK ]";
       noFile3   = "|konnte nicht geschrieben|werden.][[Abbruch]";
       noFile4   = "|konnte nicht ge”ffnet|werden.][[Abbruch]";
       noMem     = "[3][CAT:|Fr die gewnschte|Operation steht|zuwenig Speicher|zur Verfgung.][[Abbruch]";

       nameNotWritten     = "[1][CAT:|Name konnte nicht|geschrieben werden][ [OK ]";
       postableNotWritten = "[1][CAT:|Positionstabelle nicht geschrieben!][ [OK ]";

       possibleOldVersion="[2][CAT:|Versionsinfo fehlt,|m”glicherweise alte|Cat-Datenbank?][[Weiter|:[Abbruch]";
       oldVersion = "[3][CAT:|Alte Cat-Datenbank!][[Abbruch]";

       listError1 = "[1][CAT:|Interner Fehler in|";
       listError2 = "][[OK]";

 PROCEDURE InfoAlert(REF s1,s2,s3 : ARRAY OF CHAR);

 PROCEDURE info(REF s : ARRAY OF CHAR);

 PROCEDURE warnAlert(cond : BOOLEAN; REF s1, s2, s3 : ARRAY OF CHAR);

 PROCEDURE numAlert (num: INTEGER; s : ARRAY OF CHAR);
 (* Ersetzt in s das Zeichen & durch die Zahl num und ruft dann
  * MTE.info auf.
  *)

 PROCEDURE noMemAlert();
 (* Damit nich dauernd die Strings berall eingesetzt werden, hier ein zentraler Aufruf *)

 PROCEDURE noWinDialAlert();
 (* Damit nich dauernd die Strings berall eingesetzt werden, hier ein zentraler Aufruf *)


 PROCEDURE noMemWarn(cond : BOOLEAN);
 (* dito *)

END MTE.